Underground/Underground CD1.iso/other/progsy/netbus/NETBUS.EXE/0/RCDATA/TMAINFORM/TMAINFORM.txt

Text File | 1998-08-22 | 8.6 KB | 426 lines

object MainForm: TMainForm
  Left = 194
  Top = 110
  Width = 472
  Height = 296
  BorderIcons = [biSystemMenu, biMinimize]
  Caption = 'NetBus 1.60, by cf'
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clBlack
  Font.Height = -11
  Font.Name = 'Arial'
  Font.Style = [fsBold]
  KeyPreview = True
  Position = poScreenCenter
  Scaled = False
  ShowHint = True
  OnActivate = FormActivate
  OnClose = FormClose
  OnCreate = FormCreate
  OnDestroy = FormDestroy
  OnKeyDown = FormKeyDown
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 14
  object HostLabel: TLabel
    Left = 143
    Top = 19
    Width = 75
    Height = 14
    Alignment = taRightJustify
    Caption = 'Host name/IP:'
  end
  object ProgramLabel: TLabel
    Left = 143
    Top = 70
    Width = 75
    Height = 14
    Alignment = taRightJustify
    Caption = 'Program/URL:'
  end
  object TextLabel: TLabel
    Left = 146
    Top = 96
    Width = 72
    Height = 14
    Alignment = taRightJustify
    Caption = 'Text to send:'
  end
  object DelayLabel: TLabel
    Left = 277
    Top = 45
    Width = 61
    Height = 14
    Caption = 'Cmd delay:'
  end
  object EjectButton: TButton
    Left = 12
    Top = 39
    Width = 113
    Height = 25
    Hint = 'Open/close the CD-ROM.'
    Caption = 'Open CD-ROM'
    TabOrder = 1
    OnClick = EjectButtonClick
  end
  object IntervalEdit: TEdit
    Left = 225
    Top = 40
    Width = 29
    Height = 22
    TabOrder = 24
    Text = '60'
    OnExit = IntervalEditExit
  end
  object AdminButton: TButton
    Left = 12
    Top = 9
    Width = 113
    Height = 25
    Hint = 'Administrate server (change password etc).'
    Caption = 'Server admin'
    TabOrder = 0
    OnClick = AdminButtonClick
  end
  object SwapButton: TButton
    Left = 12
    Top = 98
    Width = 113
    Height = 25
    Hint = 'Swap the mouse buttons.'
    Caption = 'Swap mouse'
    TabOrder = 3
    OnClick = SwapButtonClick
  end
  object StartAppButton: TButton
    Left = 12
    Top = 127
    Width = 113
    Height = 25
    Hint = 'Start an application.'
    Caption = 'Start program'
    TabOrder = 4
    OnClick = StartAppButtonClick
  end
  object ApplicationEdit: TEdit
    Left = 225
    Top = 65
    Width = 231
    Height = 22
    TabOrder = 27
    Text = 'http://www.casino.com'
  end
  object FileMgrButton: TButton
    Left = 356
    Top = 216
    Width = 97
    Height = 25
    Hint = 'Remote file manager (download/upload etc).'
    Caption = 'File manager'
    TabOrder = 20
    OnClick = FileMgrButtonClick
  end
  object PlayButton: TButton
    Left = 134
    Top = 127
    Width = 105
    Height = 25
    Hint = 'Play a sound (WAV supported).'
    Caption = 'Play sound'
    TabOrder = 8
    OnClick = PlayButtonClick
  end
  object MessageButton: TButton
    Left = 12
    Top = 156
    Width = 113
    Height = 25
    Hint = 'Message dialog manager.'
    Caption = 'Msg manager'
    TabOrder = 5
    OnClick = MessageButtonClick
  end
  object TextEdit: TEdit
    Left = 225
    Top = 91
    Width = 231
    Height = 22
    TabOrder = 28
    Text = 'Error'
  end
  object ExitButton: TButton
    Left = 134
    Top = 156
    Width = 105
    Height = 25
    Hint = 'Exit Windows immediately.'
    Caption = 'Exit Windows'
    TabOrder = 9
    OnClick = ExitButtonClick
  end
  object MouseButton: TButton
    Left = 248
    Top = 156
    Width = 97
    Height = 25
    Hint = 'Set mouse position.'
    Caption = 'Mouse pos'
    TabOrder = 14
    OnClick = MouseButtonClick
  end
  object MouseXEdit: TEdit
    Left = 254
    Top = 129
    Width = 41
    Height = 21
    AutoSize = False
    TabOrder = 12
    Text = '0'
  end
  object MouseYEdit: TEdit
    Left = 298
    Top = 129
    Width = 41
    Height = 21
    AutoSize = False
    TabOrder = 13
    Text = '0'
  end
  object ControlButton: TButton
    Left = 356
    Top = 127
    Width = 97
    Height = 25
    Hint = 'Navigate the mouse.'
    Caption = 'Control mouse'
    TabOrder = 17
    OnClick = ControlButtonClick
  end
  object StatusBar1: TStatusBar
    Left = 0
    Top = 250
    Width = 464
    Height = 19
    Panels = <
      item
        Width = 350
      end
      item
        Width = 100
      end>
    SimplePanel = False
  end
  object TextButton: TButton
    Left = 134
    Top = 186
    Width = 105
    Height = 25
    Hint = 'Send keystrokes to the active application window.'
    Caption = 'Send text'
    TabOrder = 10
    OnClick = TextButtonClick
  end
  object ConnectButton: TButton
    Left = 379
    Top = 16
    Width = 67
    Height = 17
    Hint = 'Connect to the host!'
    Caption = 'Connect!'
    TabOrder = 22
    OnClick = ConnectButtonClick
  end
  object ImageButton: TButton
    Left = 12
    Top = 69
    Width = 113
    Height = 25
    Hint = 'Show an image (GIF/JPG supported).'
    Caption = 'Show image'
    TabOrder = 2
    OnClick = ImageButtonClick
  end
  object ListenButton: TButton
    Left = 248
    Top = 186
    Width = 97
    Height = 25
    Hint = 'Listen for keystrokes.'
    Caption = 'Listen'
    TabOrder = 15
    OnClick = ListenButtonClick
  end
  object ScreenButton: TButton
    Left = 12
    Top = 186
    Width = 113
    Height = 25
    Hint = 'Screendump (don'#39't use this on slow connections).'
    Caption = 'Screendump'
    TabOrder = 6
    OnClick = ScreenButtonClick
  end
  object URLButton: TButton
    Left = 356
    Top = 156
    Width = 97
    Height = 25
    Hint = 'Go to an URL.'
    Caption = 'Go to URL'
    TabOrder = 18
    OnClick = URLButtonClick
  end
  object UserButton: TButton
    Left = 12
    Top = 216
    Width = 113
    Height = 25
    Hint = 'Get information about host computer.'
    Caption = 'Get info'
    TabOrder = 7
    OnClick = UserButtonClick
  end
  object DelayEdit: TEdit
    Left = 343
    Top = 40
    Width = 28
    Height = 22
    Hint = 'Delay for the commands you are sending.'
    TabOrder = 25
    Text = '0'
    OnExit = DelayEditExit
  end
  object AboutButton: TButton
    Left = 379
    Top = 43
    Width = 67
    Height = 17
    Hint = 'About NetBus!'
    Caption = 'About'
    TabOrder = 26
    OnClick = AboutButtonClick
  end
  object ActiveButton: TButton
    Left = 134
    Top = 216
    Width = 105
    Height = 25
    Hint = 'Show/kill/focus windows.'
    Caption = 'Active wnds'
    TabOrder = 11
    OnClick = ActiveButtonClick
  end
  object SoundButton: TButton
    Left = 248
    Top = 216
    Width = 97
    Height = 25
    Hint = 'Sound system manager.'
    Caption = 'Sound system'
    TabOrder = 16
    OnClick = SoundButtonClick
  end
  object HostBox: TComboBox
    Left = 224
    Top = 14
    Width = 147
    Height = 22
    ItemHeight = 14
    Sorted = True
    TabOrder = 21
    Text = 'localhost'
  end
  object KeyButton: TButton
    Left = 356
    Top = 186
    Width = 97
    Height = 25
    Hint = 'Keyboard manager (key-click, disable keys).'
    Caption = 'Key manager'
    TabOrder = 19
    OnClick = KeyButtonClick
  end
  object MediaPlayer1: TMediaPlayer
    Left = 0
    Top = 216
    Width = 253
    Height = 33
    Visible = False
    TabOrder = 30
  end
  object IntervalBox: TCheckBox
    Left = 143
    Top = 44
    Width = 81
    Height = 17
    Caption = 'in interval:'
    TabOrder = 23
  end
  object WaitTimer: TTimer
    Enabled = False
    Interval = 60000
    OnTimer = WaitTimerTimer
    Left = 432
    Top = 8
  end
  object ClientSock: TClientSocket
    Active = False
    ClientType = ctNonBlocking
    Port = 12345
    OnConnect = ClientSockConnect
    OnDisconnect = ClientSockDisconnect
    OnRead = ClientSockRead
    OnError = ClientSockError
    Left = 368
    Top = 8
  end
  object ClientSock2: TClientSocket
    Active = False
    ClientType = ctNonBlocking
    Port = 12346
    OnConnect = ClientSock2Connect
    OnDisconnect = ClientSock2Disconnect
    OnRead = ClientSock2Read
    OnWrite = ClientSock2Write
    OnError = ClientSock2Error
    Left = 400
    Top = 8
  end
  object ConnectTimer: TTimer
    Enabled = False
    Interval = 4000
    OnTimer = ConnectTimerTimer
    Left = 432
    Top = 40
  end
  object OpenDialog1: TOpenDialog
    Filter =
      'Exe files (*.exe)|*.exe|Jpg files (*.jpg)|*.jpg|Wav files (*.wav' +
      ')|*.wav|All files (*.*)|*.*'
    Options = [ofHideReadOnly, ofPathMustExist, ofFileMustExist]
    Left = 432
    Top = 72
  end
  object NotifyIcon1: TNotifyIcon
    Icon.Data = {<image000.ico>}
    Hint = 'NetBus'
    PopupMenu = PopupMenu1
    OnDblClick = NotifyIcon1DblClick
    Left = 432
    Top = 104
  end
  object PopupMenu1: TPopupMenu
    Left = 400
    Top = 40
    object OpenItem: TMenuItem
      Caption = '�ppna'
      Default = True
      OnClick = OpenItemClick
    end
    object ExitItem: TMenuItem
      Caption = 'Avsluta'
      OnClick = ExitItemClick
    end
  end
end